322 
“4-4 
“444 
444 
444 
444 


4 
— — tt tt St St SH 22— 
— gd gt ag at tt tt 
a hhh da a a dd tg tt 


# 


2221 


v 
cr 


] 
] 
] 
] 
] 
] 
] 
| 
: 
‘ 


PL 
PL 
PL 
PL 
PL 
PL 
PL 
PL 
PL 
PL 
PL 
PL 
PL 
PL 
PL 
PL 
PL 
PL 
PM 
PM 
PMS 
PMS 
PMS 
PMS 
PMS 
PMS 
PMS 
PMS 
PMS 
PMS 
PMS 
PMS 
PMS 
PMS 
PMS 
PMS 
PMS 
PMS 
PMS 
PMS 
PMS 
PAS 
PMS 
PM: 
PAS 
PMS 
PM 
PM: 


a , 


**F ILE**1D**HOMOG 


HH HH 
HH HH 
HH HH 
HH HH 
HH 
HHHHHHHHHH 
HHHHHHHHHH 
HH HH 
HH HH 
HH HH 
HH HH 
HH HH 
HH HH 
LL 
LL 
LL 
LL 
LL 
LL 
LL 
LL 
LL 
LL 
LL 
LL 
LLLLLLLLLL 


LLLLLLLLLL 


nnn 


GGGGGGGG 
66666666 


GG 666666 
6G GG6GGGG 
GG GG 


GG GG 
GGGGGG 
GGGGGG 


HOMOG 
Table of contents 


GS § 


DE 
FI 


C 
L 


& @ 
= MONITOR Homogeneous Class STATS Rtn 


LARATIONS 
L.HOMOG_STATS = Fill STATS buffs for homogs 


16-SEP-1984 02:05:50 VAX/VMS Macro v04-00 


| 


F 2 
= MONITOR Homogeneous Class STATS Rtn  16-SEP=1984 02:05:50 VAX/VMS Macro v06-00 p 
° Peer 1E8e BS:88:28 PARLYRS Bacto VOR~00 eat 


LE HOMOG = MONITOR Homogeneous Class STATS Rtn 
T ‘'v04-000' 


TIT 
- IDEN Vv 


OPI I STITT iii iii iii iii titi tii tii tiiiiiiiiititiitiititii tt) 
COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 

DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 

ALL RIGHTS RESERVED. 

re fo "eore IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COP 


eee eee =O 
ocov°vrv°cCo <o 


® ® 
® ® 
® ® 
& ® 
® te 
« IED * 
. CORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE ®* 
* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
* TRANSFERRED. ‘ 
& ® 
* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
* CORPORATION. . 
tr ® 
® & 
© * 
® ® 
*® *® 
® ® 


DIGITAL ASSUMES NO RESPONS ef 


IBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH 


L 
S NOT SUPPLIED BY DIGITAL. 


ARAB ASAAAAAAASALAAAAALASALALLL SEALE SEES EERE SESE E RR EEE SERRE EERE SERRE ERAS 


+ 
FACILITY: VAX/VMS MONITOR Utility 
ABSTRACT: 


This module fills all the STATS buffers for homogeneous 
STANDARD classes of the MONITOR utility. 
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> ENVIRONMENT: 
: : Unprivileged user mode, runs at AST level. J 
8 ; AUTHOR: Thomas L. Cafarella, April, 1983 - 
99 : MODIFIED BY: * 
00 : v03-003 TLC1072 Thomas L. Cafarella 17-Apr-1984 11:00 MN 
8 Add volume name to DISK display. os 
00 ; V03-002 TLC1063 Thomas L. Cafaretla 3-Apr-1984 13:00 MN 
000 ; Add check to ensure that a counter which is re-inited to MN 
8 zero will not cause an **** to be displayed. a 
009 ; v03-001 TLC1061 Thomas L. Cafarella 18-Mar-1984 11:00 MN 
: Identify dual-path disks by allocation class. a 
0 ; v03-001 TLC1060 _ Thomas L. Cafaretla 12-Mar-1984 11:00 MN 
0 3 Make multi-file summary work for homogeneous classes. 3 
MN 
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; MACROS: 


: Local Macro Definitions 


: ALLOC Macro - Dynamically allocate space on the stack. 


MACRO ALLOC LENGTH, RSLDESC,RSLBUF 
SUBL #<LENGTH >&<*€3>,SP 


. B,RSL 
MOVL SP, ,RSLBUF 
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#LENGTH 
MOVL SP ,RSLDESC 
ALLOC 
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Define Class Descriptor Block 
Define CDB Extension 

define item descriptor block offsets 
Define Monitor Buffer Pointers 
Monitor Fecerding File Definitions 
Define STATS Control Block 

Define temporary storage offsets 
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* HOMOG STATS = Fill STATS buffs for homogs 

MORCODE ,NOWRT EXE 


FUNCTIONAL DESCRIPTION: 
FILL_HOMOG_STATS 
This routine fills all the STATS put 


class indicated by CDBPTR. The SCB 
Block) Table and the Element ID Tabl 


2 
updeted. These tables maintain inform 
the elements of this homogeneous class. An ‘‘element"’ 
is, for oxeagie a particular disk in the DISK class. 
There is a $ ats buffer for each item defined for the 
class. An “‘item’’ is, for example, operation count 
for the DISK class. 


fers for the 
STATS Control 
are also 
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INPUTS: 
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8(AP) = address of PREVIOUS collection buffer 
IMPLICIT INPUTS: 
OUTPUTS: 
ALL STATS buffers for this homogeneous class filled. 
IMPLICIT OUTPUTS: 


CDBSL_ECOUNT and CDX$W_CUMEL 
Element ID Table and SB (ST 


ROUTINE VALUE: 
RO = SS$_NORMAL 
SIDE EFFECTS: 


none 


SOoOQooooooooooooooooo 


T established for the current interval. 


1 
| 
| 
4(AP) - address of CURRENT collection buffer 
| 
C 
ATS Control Block) updated. 
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143 
OFFC Vee sENTRY FILL HOMOG_STATS, “M<R2,R3,R4,R5,F6,R7,R8,R9,R10,R11> 
56 0 9000 aH i) 138 MOVL CDBPT ; Load CDB addr 
A6 OD 14 MOVL DBSA_ wi FRO). R7 : Load CDX addr 
8 4 aC OD D 138 4 (AP); ; Load CURRENT coll buff addr 
1 16 ALLOC TAP SK SIZE ,RO Ry ; Allocate local temp storage 
18 A6 OA 47 3C i 0 MOVZWL CSW CUMELCT (R’), - } Load element count for display 
58 OD C 1 § ADDL2 #MNR_CL * HSIZE,R8 ; Point to CURR coll buff prol 
69 68 OD § : MOVL Hn ELIT CAB) . - +: Load current buffer date block count 
8 12 9 155 BNEQ 5$ ; Br if have some 
008A 31 ; ; 136 $$ BRW UPDATE _SCB_FLAGS 3; Else skip past ID Table update 
5808 go 00k 158 7* ADDL2 #MNR_HOMSK PSIZE, RB : Point to first data block 
04 A9 = 20 A6 t 8 MOVZWL Cops. BLKL EM RO) ; Get data block length 
08 AD OA 47 3 0086 19) MOVZWL — J ; Load number of ID Table elements 
5A 09 47 QA 0038 168 MOVZBL CDX$B[ELIDLEN(R7),R10 ; Get element ID Length 


= MONITOR Homo 
—R — 


neo lass STA o Vv04-00 p 6 
baa a TN esd tt ee 


T$ Rtn 16-SEP-1984 02:05:50 YAX/VMS Macr 
uffs for — 83:80:46 MONTOR.SRCJHOMOG.MAR; 1 ( 


nn 
“ne 


Loop He te all data blocks in the CURRENT collection buffer. 
; For each element (represented by a data Ha pg try to find 

; @ match in the element ID table. The ID table represents elements 
which have been monitored for this request. On the first time 

; through this routine, the table will be empty. The element ID table 
; has several other associated tables, namely the STATS control 

block (SCB) table, and all the transformation buffers (STATS, MIN, 


189 
_ 
ie 
: if 
BR I 
F 1746 ; MAX, SUM, PCSTATS, PCMIN, PCMAX and PCSUM). Each of these tables/ 
O3F 175 : buffers has one element for each monitored element (i.e., disk for 
F 178 the DISK class). The current number of elements in each of the tables 
: : 178 is represented by CDX$W_CUMELCT. 
O3F 17 
OC AD 64 008 18) 108 CLRL TMPS$L_DBIDX(R9) ; Clear data block index 
5B OC A7 DO 004 1 ¢ ; MOVL COXSA_ELIDTABLE(R7),R11 ; Load Element ID Table addr 
10 A9 594 604 1 CLRB TMPSB_FOUND(R9) ; Clear ‘‘element found’’ indicator 
54 D4 004 184 CLRL 3; Clear element ID table index 
55 08 Ad 09 048 185 MOVL TMPSL_ELIDCT(R9) ,R5 ; Load number of elements in ID table 
— 3 O4F 186 BEQL 40$ ; Br if table is enpty 
57 SA 00 Boa, 1 MOVL R10,R7 ; Borrow R7 to hold elt id Length 
03 48 A6 4006) «CET «0054S s«188 BBC #COBSV_DISKAC, - ; Branch if no allocation class in name 
0059 189 CDBSL_FLAGS(R6) ,20$ J 
OOAF 30 Oe 139 208 BSBW SHORTEN_DISKNAM ; Shorten element name for DISK 
68 68 57 29 Spa 135 7 CMPC3 R7,(RB),(R11) ; Match current element in table ? 
06 12 +44 19 BNEQU ; Br if not 
10 a9 «6010 N 66 194 MOVB #1, TAPSB_FOUND(R9) ; Yes -- indicate so 
07 «11 066 195 — BRB 40$ t se. and terminate Loop 
5B SA £9 008 199 : ADOL2 = kR10,R11 : Point to next element ID 
ep 54 #55 «OF 068 198 AOBLSS R5,R4,208 ; Loop through element ID table 
6F 00 ; 
Gost 01 ; At this point the entire element ID table has been scanned for a 
bee 08 3 match to the current element in the CURRENT collection buffer. 
6F Y 
6F 82 40$: 
57 32 A6 00 of — MOVL CDBSA_COX(R6) ,R7 3; Re-load CDX addr 
06 10 Ad 8 0 ; 0 BLBS TMP$B-FOUND(R9) ,50$ ; Branch if element found in table 
54 OA A? 3C O77 a MOVZWL CDXSWICUMELCT(R7),R4 det next available element index 
78 3 
a8 11 ; NOTE -- if R4 is greater than or equal to MAXELTS, issue warning msg 
oe \¢ ; and simply branch to look at next coll buff data block. 
7 14° 
68 10 8 15 BSBB CHECK_TAB_SPACE ; Check if table ppece exhausted 
7D 16 ; NOTE -- if so, MONITOR request 
3 18 3 eee iS terminated 
7D 19 50$: 
s+ & 3 7D 0 MULL3 #SCBSK_SIZE,R4,R5 ; Get SCB offset from index 
55 108745 9E 81 } MOVAB @CDX$A~SCBTABLE(R7)CR5),R5 ; Get SCB address 
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00 02 AS BBSS V CURRENT ; Set ‘‘current’’ bit indica ing this 
SCB$B_FLAGS(RSS ,60$ t element in ID table was URR buff 
: 60S: 


05 10 Ad BLBS TMP$B_FOUND(R9) ,70$ ; Branch if element found in table 
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5B 15 A24B 
6C 

58 04 Ad 
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ass STATS R 
ST Ate buf or “-SEP-19 MONTOR.S RCI HOMOG.MAR; 1 
Element in CURRENT buffer was — found in the element ID table. 

Add a new element to the table 


BSBW  ADD_NEW_ELT 
BRB 808 


: Aad elt to table 
NOTE -- several registe 
5 60 look at next coll bu 


rs altered 
ff data block 


; Element in CURRENT was found in the element ID table. 


70$: 
oa SCBsu. DBIDX(R5),R11 Get data block index for prev buff 
MPSL_DBIDX(R9) ,SCBSW_ DBIDX(RS) 3; Save curr index for next int 
BBC 4i5 +44 ACTIVE 3; Done with this elt if not active 
CBSB_ VFLAGS (RS) , 80$ 


This element is active. Call routine to ** fill the STATS buffers, 
: given the element ID table index and the addresses of this element's 
3; data blocks for both CURRENT ond PREVIOUS collection buffers. 


MULL2 TMPSL_DBLEN(R9),R11 a Get data block offset from index 
MOVL PREV Oy cant buf f 


MOVAB  <MNR_CLSSK_HSIZE+MNR_ non oot OES CRO ERIT aR 
; Compute Paty tous data block addr 


BSBB HOMOG_STATS 3 aay STATS buffs for all req'd items 
: bh wal neat anrtn destroys 
° eee ai d 


80$: 


ADDL2 TMPS$L_DBLEN(R9) ,RB 3; Point to next data block 


AOBLSS TMPS$L -DBCT(R9). = ; Loop once for each elt in CURR buff 
TMPS$L_DBIDX(R9} ,10$ 


N 2 
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Now 9° a tat h ereice SCB (STATS control 4 ig Table, settin ng 
the ee V_ACTI t for oe giements which have SCBSV_CURREN 
set. Clear Hie fh SB V_CURRENT bits as you go to prepare for 
the next. collec ion interval. The underlying assumption is thay 
pit elements which were in the current collection are ative 

For elements with SCBSV CURRENT not set, clear SCBSV_ACTIVE 
and, in addition, zero fhe STATS buffers if SCBSV_ACTIVE had 
been set (this is an element which has just gone inactive.) 
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UPDATE_SCB_FLAGS: 
59 10 A7 00 MOVL  COX$A_SCBTABLE(R7),R9 =; Get SCB table addr 
SA OA A? ¢ MOVZWL CDX$W7CUMELCT(R7),R10 : ... and no. of elements in it 
i «CS BEQL FHS_RET ; Quit if empty 
54 04 CLRL 3; Init glanent number 


10$: 
0B 02 A9 00 64 


0B 02 A9 01 65 


BBSC #SCBSV_CURRENT 
SCBSB_FLAGS(R9S , 208 

BBCC #SCBSV_ACTIVE 

SCBSB_FLAGS (RO) , 30S 


Br if current set 

- Always clear current 
: Br if active clear 
.. Always clear active 


OOOoooooooooooo 
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58 D4 CLRL indicate ‘clear STATS buffers" 

49 10 BSBB HOMOG_STATS Clear all STATS buffs for this elt 
NOTE == this subrtn destroys 
— RO-R and R5 

05 11 . 208 BRB 30$ Go process next element 

00 02 a9 01 «€E2 00D 888s88 = ss MSCBSV_ACTIVE : Set active 
* $CB$B “FLAGS(R9) , 30$ 
59 03 «CO "  ADDL2 #sCBSK _SIZE,R9 : Point to next SCB 
E454 SA Fe AOBLSS R10,R4,10$ ; Loop back for next element 


FHS_RET: 


50 00000000°8F 00 Pye #SS$_NORMAL ,RO Normal status 


Return 
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E 13 1 
E 1 CHECK_TAB_SPACE: ! 
54 00000000°8F 01 O0E 18 CMPL § #MAXELTS,R4 ; Have we run out of table space? } 
14 OOEF 31 BGTR : Br if not | ; 
50 00000000'8F 00 Fi 18 MOVL #MNRS$_TABLEFULL,RO 3; Yes -- return error } 
04 re 1 RET 3 eeeeseee 
F 0 10S: , 
05 OOF9 1 RSB ; Return to caller 1 
—84 358 
OOFA s ADD_NEW_ELT: : Add new element to ELIDTABLE : 
OA 47 BE OOF A $ INCW — CDX$W_CUMELCT(R7) ; Count the new element : 
65 OC 49 B0 SOD 8 MOVW TMPSL_DBIDX(R9), - : Set data block index ... 1 
9191 9 SCBSW-DBIDX(R5) : we. for use next interval } 
54 SA C4& 0101 0 MULL —438 Compute offset to new table entry 
oc 8744 68 5A 28 0104 331 MOVC3 R10, (RB) ,@CDXSA_ELIDTABLE(R7) LR4 1 
010A é ; Move new element ID into the table 1 
05 010A 3 RSB ; Return 1 
He i } 
8198 $3 SHORTEN_DISKNAM: ; Possibly shorten DISK element name ' 
03 48 A6 07 x1 G6iöõs 38 BBC #CDBSV_DISKVN, - : Branch if no vol’ > name in disk name 1 
0110 339 CDBSL_FLAGS(R6) , 10$ J 1 
sy )6COCUOECiéidE}:«CéSY — 40 SUBL2 #12,R7 ; Shorten length for compare so 1 
4 ioe j se. volume name will not be compared 1 
68 95 011 rk “ - TSTB 68) : Allocation class zero ? 
03 13 «0115 44 BEQL 20$ ; Br if so 
57 08 C2 0117 45 SUBL2 #8,R7 ; Shorten Length for compare so 
O11A 46 3 «ee node name will not be compared 
O11A 47 208: 
05 O11A 348 RSB 3; Return 
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118 : 
118 ? ; HOMOG_STATS = Fill the STATS buffer for each requested data item } 
118 § 3 (e.g., disk operation count) for the current element | } 
118 § (e.g., DBAO). | 
118 «354: 1 
118 23 ; Register Inputs: ; 
118 3§ 3 R4 = element index of current element 1 
118 «358: R6 = CDB address 1 
118 59 ; R? = COX address 1 
118 60 ; R8 = address of data block for CURRENT coll buffer, 1 
118 «361; OR 0, if STATS buffers are to be cleared. 1 
11B 8 R10 = element ID Length (unused if R8 = 0) — 
118 635 ; R11 = address of data block for PREVIOUS coll buffer 
118 64 : (unused if RB = 0) 1 
011 65 ; 1 
0118 66 ; Implicit Inputs: 1 
0118 367: | 1 
0118 368; Volezile registers: RO, R1, R2, R3, RS 1 
0118 369; 1 
0118 70 ; Implicit outputs: 1 
0118 «371; 1 
0118 ue ; ALL STATS buffers updated. 1 
0118 373; 1 
0118 74 1 
0118 375 HOMOG_STATS: 1 
0118 26 1 
0600 8F Ba 011B 37 PUSHR #*M<R9,R10> ; Save regs 1 
58 DS O11F 78 TSTL RB ; Data block ptr present? 1 
14 12 4 | 44 BNEQ 20% ; Br if yes ; 
a1 ; B3 3 Special case: clear STATS buffers for this element : 
01 83° 1 
50 06 A7 9A Q1 : 84 MOVZBL CDX$B_IDISCT(R7) ,RO ; Get number of STATS buffers 1 
51 2€ Ab DO oi i 8 ns MOVL CDBSA"BUFFERS(R65 ,R1 : Get addr of first MBP ptr } 
52 81 00 0128 87 MOVL (R1)+,R2 : Get MBP pointer 1 
08 B244 04 bis 88 CLRL @MBPSA_STATS(R2)CR4) ; Clear STATS for this item & element 1 
F650 F5 0132 89 SOBGTR RO,10$ ; Loop back for next STATS buffer 1 
24 11 0135 90 BRB 40$ ; Go to common return : 
1 
1 
1 
1 
1 
1 
1 
| 
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| 
137 392 208: | 
58 58 A C1 0137 ADDL S R19,RB,R2 ; Point to 1st item in CURR data block ! 
B 5A C1 0138 39% ADDL3 R10<R11,R3 : Point to 1st item in PREV data block | 
5 (4 13 6 CLRL RS ; Init index to MBP pointers | : 
141 97 ; 1 
141 38 3 Use FFS instruction to scan the item number bits in the CDx 1 
141 339 ; When an item number is found, compute the STATS value for the item. : 
141 401 ° 1 
51 10 00 0141 i0¢ MOVL #COXSS_IBITS,RI : Init bit field size 1 
50 4 146 403 * CLRL RO ; Init start position ! 
59 67 51 50 EA 0146 405 ; FFS RO,R1,CDX$W_IBITS(R7),R9 ; Search for next item number 1 
0148 406 : R9 contains item number if found 1 
OE 13 0148 407 BEQL 40% : Branch if none found : 
11.10 O40 409 BSBB = STORE_STATS ; Go store stats for item in R9 | 1 
94 410 ; NOTE == this subrtn destroys R10 : 
55 6 Bee 412 INCL RS 3 Index to next sequential MBP ptr } 
50 59 O01 C1 0151 414 ADDL #1,R9,R0 3 Compute next starting zr 1 
51 10 50 ¢3 0155 415 SUBL RO,#COX$S_IBITS,R1 : se. position and field size 1 
EB 11 #0159 416 BRB 30$ ; Go search rest of bit string 1 
0158 417 40$: 1 
0158 418 1 
0600 8F BA 9138 419 POPR #°M<RI,R10> ; Restore regs 1 
05 O1SF 420 RSB : Return 1 
0160 421 1 
6160 4 ; 1 
0160 4 ; STORE_STATS: } 
5A 1C B649 9A 0160 425 MOVZBL QCDBSA_ITMSTR(RG)CRI].RIO Get IDB item number 1 
54 11 C4 0165 426 MULL2 #IDBSK LENGTH. RY : Compute index into IDB table 1 
54 Q0000000°EF4A SE 0168 427 MOVAB PERF TABLECR10].R10 ; Address of IDB for this item 1 
0000'8F OA AA B1 0170 428 CMPW = IDBS$W_TYPE(R105 ,ACOUNT_TYPE ; Is this item a count? 1 
14 93 425 BNEQ 10$ No -= assume evel type 1 
54 2€ B645 DO 0178 430 OVL @CDBSA BUFFERS (RG)CR R5), rio: Get MBP poin 1 
08 BASS 6249 6349 C€ B78 431 SUBL3 (R3)CR9J,(R2)CR9 3 Compute STATS sy this count item 1 
185 4 ‘ AMAPSA.STATS(R10) CR4I 1 
OD 18 0185 4 BGEQ 30$ : Br if difference OK 1 
866 11 4 : ; : * SRB 208 3; Ctr was re-init'ed; treat Like level ! 
SA 2E B645_ 00 0 9 4 6 —* MOVL  a@CDBSA_BUFFERS(R6)CR5],R10 ; Get MBP pointer } 
08 BA44 6249 00 OIE : 3 * MOVL (R2)CR9],@MBPSA_STATS(R10)CR4] ; Store STATS for this level item . 
05 8130 440 y RSB ; Return 1 
0199 441 1 
195 442 .END 1 
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Symbol table :00:46 CMONTOR.SRCJHOMOG.MAR; 1 (12) 
1DBSM_PCNT = 1 MNR_HDRSL_RECCT J 29 1 
1DB$S~FILLLR 5 7 BNR“HDRSO_CLASSBITS : 
1DB$S~FLAGS : 1 MNR"HDRSO-REVOCLSBITS z 19 
1DB$S_10B = 00000011 MNR~HOR$Q BEGINNING : 5 
IDBSV7FILLER 2 01 MNR"HDR$Q ENDING = 0 
IDB$V~PCNT = 00 0 MNR"HDR$S BEGINNING : 8 
1DBSW~ISIZE = 9000009 MNR"HDR$S_CLASSBITS = 0000001 | 
1DB$W~TYPE = 000000 MNR-HDRSS” COMMENT = 9000003 
MAXELTS 22222222 = X 02 MNR_HDR$S_ENDING = 0 
MAX_STAT = 00000004 MNR"HDRS$S-FILE_HDR = 0000010 
MB = 90000000 MNR"HDR$S FILLER = 00000020 
MBPSA_ADDR = 9000001 MNR"HDR$S_FLAGS = 90000004 
MBPSA~B1ST = 00000004 MNR“HDRSS “LEVEL = 8 
MBPSA~BA = 00000000 MNR"HDR$SREVOCLSBITS = 00000010 
MBPSA~BUFF 1ST = 00000004 NR-HORSS-REVLEVELS = 00000080 
MBPSA~BUF = 00000000 MNR"HDRS$S_TYPE = 90000008 
MBPSA~BUFFERA = 00000000 MNR"HDRST~COMMENT = 900000 
MBPSA_BUFFERB = 00000004 MNR~HDRST~LEVEL = 90000020 

PSA-DATA = 00000008 MNR"HDORST~REVLEVELS = 00000085 
MBPSA_DIFF = 0000000¢ MNR-HDRSV~FILLER = 00000000 

PSA-MAK = 00000010 MNR~HDRSW”COMLEN = 00000071 

PSA_MIN = 0000000C MNR~HOMSK~PS1ZE = 00000008 
MBPSAORDER = 00000010 MNR-HOMSL~ELTCT = 00000000 
MBPSA~PCMAX = 00000020 MNR~HOMSL ~RESERV = 00000004 
MBPSA~PCMIN = 0000001C MNR~HOM$S~HOM_CLASS_PRE = 00000008 
MBPSA~PCSTATS = 00000018 MNR~PROSB_PRI = 90000004 | 
MBPSA~PCS = 00000024 MNR~PROSK~DSIZE = 00000038 
MBPSA~PID = 00000014 MNR~PROSK ~F SIZE = 00000040 | 
MBPSA~PR_FAOSTK = 00000008 MNR"PROSK-PSIZE = 90000008 
MBPSA"ST = 00000008 MNR~PROSK ~REVODSIZE = 000000 
MBPSA~S = 00000014 . MNR~PROSK~REV1DS1ZE = 000000 
MBPS$K "SIZE = 90000028 MNR~PROSL ~BIOCNT = 0000002F 
MBPS$S~ = 00000028 MNR~PROSL~CPUTIM = 90000028 
MBP$S_MBP2 = 0000001C MNR~PROSL ~DIOCNT = 000000 
MBP$S_MBP3 = 0000000C MNR~PROSL ~EFWM = 00000037 

P2 = 00000000 MNR~PROSL EPID = 00090033 
MBPS = 0000000 MNR~PROSL —~IPID = 90000000 
MIN_STAT = 0000000 MNR~PROSL~PAGEFLTS = 000000 
MNRS_TABLEFULL teeeeeee X 02 MNR~PROSL~PCTINT = 00000004 
MNR_CLS$B_TYPE = 0000000 MNR~PROSL ~PCTREC = 00000000 
MNR~CLS$K~HSIZE = 00000000 MNR “STs = 0000001F 
MNR™CLS$Q~STAMP = 00000003 MNR~PROSL UIC = 90000004 
MNR~CLS$S~CLASS_HDR = 00000000 MNR~PROSO_LNAME = 90000008 
MNR~CLS$S~FILLER = 0000000F MNR~PROSS _LNAME - or | 
MNR7CLSSS~FLAGS : MNR~PRO$SPROCESS_CLASS = 38 | 
MNR~CLS$S_STAMP = 9000009 MNR~PRO$SPRO_CLASS_PRE = 00000008 
MNR™CLS$V~CONT = 000000 MNR~PROSW”GPGCNT = 00000018 
MNR”CLSSV"FILLER = 90000001 MNR~PROSW~PPGCNT = 9000001 | 
— = 1 MNR~PROSW”STATE 2 0008 | 
MNR”CLS$W~RESERVED = 00 MNR~SYISB_MPCPUS = 90000000 | 

“HDRSB” TYPE = 9000000 MNR7SYISB_TYPE = 9000 | 
MNR~HDR$K~CLASSBITS = 00 MNR7SYI$K~BALSETMEM 2 1 | 
MNR~HDRSK~MAXCOMLEN = 0000003 MNR7SYISK~CPUTYP 2 
“HDRSK~REVLEVELS = 9000008 MNR~SYISK"MPWHILIM 5 | 

MNR~HDRS$K~SIZE = 1 MNR~SY1$K~NODENAME z E | 
MNR~HDRS$L FLAGS = 90000001 MNR7SYISK~SIZE 2 A 
MNR7HDR$L~ INTERVAL = 00000015 MNR7SYIS$L~BALSETMEM = OO1E 
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HOMOG 
Psect synopsis 


bomen os Sew om ee nome} 


! Psect synopsis ! 


Gower enrereoncana + 


PSECT name Allocation PSECT No. Attributes 

ABS . 00000000 < . 0O ¢ 0.) NOPIC USR CON ABS LCL ob eee be NORD NOWRT NOVEC BYT 
MONDATA 444444 . QO1¢ +1.) NOPIC USR CON REL LCL NOSHR NOEXE RD WRT NOVEC QUA 
SSMONCODE 000019 .) 02 ¢ 2.) NOPIC USR CON REL LCL NOSHR EXE RD NOWRT NOVEC BYTE 


Phase Page faults CPU "ime Elapsed Time 
Initialization 29 00:00:00.09 00: 0:01.43 
Command processing 111 0:00:00.75 00: 806-13 
Pass 161 0:00:02.44 00:00:09.5 
—* table sort 0 00:00:00.48 BP #80: 80-8 
Pas Hh 8838 00:00:03.4 
Symbol table output 9 00:00:00.34 8885: 8005 
Psect synopsis output 2 8000.00.08 00:00:00.0 
Cross-reference output 0 00:00:00.0 00:00:00.00 
Assembler run totals 432 00:00:05.22 00:00:22.36 


The working set Limit was 1200 pages. 

15442 bytes (31 pages) of virtual memory were used to buffer the intermediate c 

There were 20 pages of symbol table space aljocated to hold 326 non-local ge 53° local symbols. 
442 source lines were read in Pass 1, producing 17 object records in Pass 

16 pages of virtual memory were used to define 8 macros. 
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Macro Library | name Macros defined 
3 $255$DUA28: gprs, Biro I -MLB;1 4 
etittinys SYSLIBISTARLET MLB;2 9 

TOTALS (all Libraries) 


327 GETS were required to define 7 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=L1S$:HOMOG/OBJ=O0BJ$:HOMOG MSRC$:HOMOG/UPDATE=(ENH$:HOMOG) +EXE CML$/L1IB+LIB$:MONLIB/LIB 
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